home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol029 / ibmprint.bas < prev    next >
Encoding:
BASIC Source File  |  1987-01-11  |  1.4 KB  |  35 lines
  1. 10 REM    IBM PRINTER OPTION PROGRAM
  2. 20 REM    BY LINDA AND SID BROUDY
  3. 30 CLS:KEY OFF
  4. 40 PRINT "IBM/EPSON PRINTER OPTION MENU"
  5. 50 PRINT:PRINT "Choose from the following options:"
  6. 60 PRINT
  7. 70 PRINT "0) End program"
  8. 80 PRINT "1) Regular characters (default)"
  9. 90 PRINT "2) Compressed characters"
  10. 100 PRINT "3) Regular mode (default)"
  11. 110 PRINT "4) Emphasized mode--regular characters only"
  12. 120 PRINT "5) Double-strike mode"
  13. 130 PRINT "6) Emphasized double-strike mode"
  14. 140 PRINT "7) Normal line spacing (default)"
  15. 150 PRINT "8) Compressed line spacing"
  16. 160 PRINT "9) Silence paper-out buzzer"
  17. 170 PRINT
  18. 180 INPUT "Which option do you wish";ANS
  19. 190 IF ANS<0 OR ANS>9 THEN BEEP:GOTO 180
  20. 200 IF ANS=0 THEN 340
  21. 210 ON ANS GOSUB 250,260,270,280,290,300,310,320,330
  22. 220 PRINT "Done..."
  23. 230 FOR DELAY=1 TO 1000:NEXT
  24. 240 GOTO 30
  25. 250 LPRINT CHR$(18);:RETURN  'set regular characters
  26. 260 LPRINT CHR$(15);:RETURN  'set compressed characters
  27. 270 LPRINT CHR$(27);"F";CHR$(27);"H";:RETURN 'Emphasized and double strike off
  28. 280 LPRINT CHR$(27);"E";:RETURN 'Emphasized mode
  29. 290 LPRINT CHR$(27);"G";:RETURN 'Double strike mode
  30. 300 LPRINT CHR$(27);"E";CHR$(27);"G";:RETURN 'Emphasized and double strike on
  31. 310 LPRINT CHR$(27);"2";:RETURN 'Normal line spacing
  32. 320 LPRINT CHR$(27);"0";:RETURN 'Compressed line spacing
  33. 330 LPRINT CHR$(27);"8";:RETURN 'Override paper-out condition
  34. 340 END
  35.  LPRINT